home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / game / demo / Mattonite.lha / Mattonite / InstallFont.Execute < prev    next >
Text File  |  2000-05-22  |  1KB  |  50 lines
  1. IF EXISTS FONTS:Data70.font
  2.  IF EXISTS FONTS:Data70
  3.   IF EXISTS FONTS:Data70/13
  4.    Echo "Font already installed."
  5.    Wait SECS 1
  6.    Skip FINE
  7.   EndIF
  8.  EndIF
  9. EndIF
  10. SetEnv CopiaRiuscita="True"
  11. Echo "I am copying the file Data70.font in your fonts drawer..."
  12. Wait SECS 1
  13. Copy Fonts/Data70.font FONTS: clone
  14. Wait SECS 1
  15. IF EXISTS FONTS:Data70.font
  16.  Echo "Data70.font copied."
  17. Else
  18.  SetEnv CopiaRiuscita="False"
  19.  Echo "Data70.font not copied."
  20. EndIF
  21. Wait SECS 1
  22. Echo "I am creating the drawer Data70 in your fonts drawer..."
  23. Wait SECS 1
  24. MakeDir FONTS:Data70
  25. Wait SECS 1
  26. IF EXISTS FONTS:Data70
  27.  Echo "Data70 drawer created."
  28. Else
  29.  SetEnv CopiaRiuscita="False"
  30.  Echo "Data70 drawer not created."
  31. EndIF
  32. Wait SECS 1
  33. Echo "I am copying the file 13 in your drawer Data70 in your fonts drawer..."
  34. Wait SECS 1
  35. Copy Fonts/Data70/13 FONTS:Data70
  36. Wait SECS 1
  37. IF EXISTS FONTS:Data70/13
  38.  Echo "13 copied."
  39. Else
  40.  SetEnv CopiaRiuscita="False"
  41.  Echo "13 not copied"
  42. EndIF
  43. Wait SECS 1
  44. IF $CopiaRiuscita EQ "True"
  45.  Echo "Data70 font installation completed."
  46. Else
  47.  Echo "Data70 font installation not completed."
  48. EndIF
  49. Lab FINE
  50.